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ABSTOACTf Light pen Diagnoatio it a utility program designed 
to test the 370 Llglit pen operation with a, 340 di«» 
play. The teat ami intensity settings aw* selected 

fey the kO switches, flit pmgrnm starts in loamtian 
22$ • All e^ror <£e*teatten Is visual* 
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CHAPTER I 
Console Operating froeMixrt 

The tables below describe the operation procedure to b€# us@d 
when running this diagnostic! 

Table 1-1 i n Lo ading Proce dural 

1. Place tape 370 DIAGNOSTIC .in xwi#F 

2. Start in 7Tf% ot 17770* depending ©n th@ aim® 
of the computes* • 



Tablg„i^g. f . : ..-gj^^jjgj. I 

^dtch 

i 

3 

5 

7-9 

li-13 

15-17 



Sensitivity and i?#am@ lot test 
Light pmi follow teat 
Fisld of view test 

1 coordinate of loiter left corner 

of field of view doje 

Y eoordln&te of lower left coi e n@r 

of field of view bos 

Intensity value for pen follow arid 

field of view box 



All error detection is visual. 
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CHAPTER XX 

Test inscription 

2-1 S^^ti^i^^^^^R^^j^I^^flsts Tfeis tests the light pen 
interrupt mid the display resume lot (BBS*) at all eight 
intensity levels* Sight horizontal vectors are drawn para- 
xial to ©n@ another starting at s. » ?00g* y « iOO^j and at 
minimum (0) intensity with the last vector at maximum (7) 
intensity starting at x » 700* 7 m tOOOg. Mhm the light 
p#n is placed at any point to the right of center of any 
line* the vector will be truncated <> This demonstrates that 
the pen is tuning® light. If the pen is placed t© the left 
of center* the line mppaars in full* This shows that the 
display is resuming after a pen interrupt* 

2-2 Mfei.^SL.iSMSE^ISSi 8 Thta test indicates the speed of 
response of the 370 light pen* A cross Is drawi in the 
center of the screen. The operator places the pen on the 
cross and then can move the pen* Two lines are drawn per- 
pendloular to one another from the center of the moreen to 
the present pen position* Thus as the pen is sieved, a dif- 
ferent line is drawn.. The cross Is dra&m in such a way, 
that if the pen approaches the edge of the screen 9 the cross 

Mill 3t0p* 



DEC - k - 45 - M 
page 4 



2 ""3 SiSii.SlUiH^tSi 1 *ta t@st * determines the light pmn field 
of view or the area "seen" by the pen at any position or 
Intensity on the screen. A box approximately one half inch 
on a side is diplayed ©n the screen, ft® position end inten- 
sity of the box la determined by the urnr* Every point within 
the box is displayed. When the pen lis placed over the box, 
a 4x enlargement of the points "seen 11 is drawn in the opposite 
half of the screen* Above the 'box a digital readout is dis- 
played of the number of points aeen by the pmn in decimal* 
To use this test* set AC switches and 5 up and place two 
numbers in AC witches 7^9 said 11-13 • The number placed in 
AC switches 7*9 and 11-13 are the x and y coordinates of the 
lower left corner of the solid box* divided fey 200q« -Thus 
if the number 5 were plmstd in nwitehcie 11-13 Mid 6 placed 
in 7-9 » the coordinate of the lower left comer of the box 
srould b®% 

X - 6 x 200 • l400g 

If m 5 x 200 • 1200g 

The purpose of allo&lng the user to position the "feojs is to 

allow him to test the field of via*? at any point on the 

screen., 

Next place a desired intensity acting (Owrainimtatt* 7«maxi~ 

mm) in AC switch©® IS-l?* This billows th© user to test the 

sensitivity of the p©n to ail or any intensity level* 
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Mow th* pm may t>« pl&aed ©hot tm small box* and %\\% 4x aa- 
larg&si#ni and digital readout will b<t sown* to slis&nate fch© 
digital readout* s«t AC anifcehafl &®m* To stop th* taat* 
a«t AC «swltch« and 5 down* 
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bthsldj dac tetap2 

lac (jmp 1 outgo) 

dac stpcod 

dac co'rhlt 

las {Jap gotcihm 

dac Iphit 

dasn Ipct 

outpt^ JffiS outgo 

Jffis outgo 
lao noawit 

ana 

jmp *4>6 
law nobfn 

lot 606 

iof 

lot 601 
jmp .-1 
lac bu£+l 
add (1) 
sad bufdon 

8kp 

jap incr# 
lac tempi 
d&a buf+1 
lac temp£ 
dac but 5 
lac buf 6 
add (4) 
dac buf 6 
lac buf+2 
add (1) 
sad bufdl 
Jmp don# 
dac buf+2 
Jitip outpt 

mere, dac buf*l 

lac buf 5 
add (4) 
dac buf 5 
jnrp outpt 
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don$, 



call f 



iftuld, 

hofyuf* 



Ian. 

ami (400000 

ana 

Jsap lftaid~6 

lao buf-*5 

and (1777 

dae callus 

lac (1300 

dac call+3 

lac lpot 

Jam outnoac 





dac nobfsc 

dac tempi 

lac (400000 

dac 1 tempi 

las tempi 

lae (3000 

dee I teeipi 

law * 

dao noewlt 

las 

and (10000 

jap hole 2 
&%m noewlt 
Jmp i hole 

lac bu£+5 

Juip b the id 

34liO 

20000 
202000 

13000 
3013? 

20000 

342000 

306310 

621468 

3000 

777777 
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gotcha, Inz 


Ipct 


lot 70ft 


law buf 4 


jap outgo 2 

nobfaoc, nobfxx+300/ 


bit, 




da$ 


10 


laur 


buf-1 


d&e 


11 


lac 


I 10 


sad 


irrrm) 


Jmp 


1 bit 


dac 


i 11 


jmp 


blt+4 


follow^ 




lao 


tx 


dac 


apt 


lae 


tl 


dac 


ypt 


laa 




and 


(7) 


3cor 


param 


dac 


buf 


lac 


(3000) 


dao 


buf+4 


lae 


ypt 


xot 


fywd 


dac 


buf 1 


lac 


(Jnp gety) 


dac 


stpeod 


lae 


{jmp i out 


dac 


lphlt 


lac 


(hit) 


dac 


corhit 


las 


xpt 


add 


150) ^ 

(2000) 


and 


&Z& 




jmp backup 


lac 


xpt 


add 


(50) 


xov 


fxwd 


dac 


buf +2 


lac 


(600277 


dac 


bUf+3 


Jms outgo 


lot 


716 
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gety, 



rtr 




ptr 




rtr 




rtr 




and 


(1776) 


das x.l 


la© xpt 


tad 


(-47) 


$pa 




Jrop mov&yp 


xor 


fswd 


dac 


buf+2 


lac 


(600077 


dac buf+3 


,1ms outgo 


lot 


716 


vtr 




rtr 




rtr 




rtr 




and 


11776} 


add 


xl 


rar 




and 


(1777) 


dac 


xpt 


laa 


(Jmp a&o) 


da& 


Etpeod 


lac 


sept 


^or 


fwd 


<tac 


buf+2 


lac 


3fpt 


add 


150) t 


and 


(2000) 


ssse 




Jnop bacyup 


lac 
add 


!l0) 


xor 


fywd 


ciac 


buf+i 


lao 


(737400 


da© 


buf+3 


Jms 


outgo 


lot 


716 


raX 




and 


(1776) 


dac 


yi 


las 
tad 


\%) 


spa 




J®F 


moT^ip 
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show# 



las tit, 



xor 


fywd 


dac 


buf+l 


lac 


(637400 


dEC 


buf+3 


4ms 


outgo 


lot ?16 " 


ral 




and 


(1776) 


add 


yi 


per 




da<e 


ypt 


law 


buf 2 


dac 


10 


lac 


(341.14 


dac 


h^f 


lac 


fy 


xor 


fywd 


dac 


buf 1 


lac 


fx 


xor 


fxad 


dac 


buf 2 


lac 


fx 


CJS1& 




tad 


(i 


tad 


xpt 


daa 


sign 


spa 




jms 


absval 


dac 


®Eg 


and 


(777600) 


ssa 




Jmp modify 


lac 


(200000) 


xor 


mag 


xor 


sign 


dac 


1 10 


lee 


fy 


cma 




add 


CiJ 


tad 


ypt 


df;si 


sign 


spa 




jus yabe 


dax5 


mag 


and 


C 777600) 


3 as a 




Jmp modlfx 
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laafcy, i&c mag 

rtl 
rfel 
rtl 
rtl 

end (77*00) 

xcr sign 

xov (600000) 

dac i 10 

iac (3000) 

dac i 10 

lac {$np don«l) 

clae sfepeod 

dae Iphlt 

dac corhlt 

jms o\itgo 

abaval, 

clac t«sisp2 

lac (200) 

dae sign 

lac tanp2 

Jmp 1 abaval 

da© t«ffipS 

lac (100000) 

dae sign 

lac t*mp£ 

Jmp i ifmb® 

donel, las 

and (40000) 

aza 

Jmp follo*B*5 

imp I follow 

modify* i^ ^€ 

tad (-I76) 

dae mag 

iac (aooirr) 

xov sign 

das i 10 

l&e mag 

jmp laste-3 
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Modify, lac l^l^OO) 
xot sign 
dm i 10 
lac mag 
tad (-176) 
dac man 
j®p laaty»3 

law 6«nbu~l 

jns bit 

lac. (Jmp gotlp) 

dac Xphit 

lac (Jrnp i outgo) 

dac atpcod 
outptl» jnus outgo 

lac but 

aad C 3^117) 

jmp r®a®t 

add (1) 

dac buf 

lac buf+2 

add {100 1 

dac buf 4-2 

$mp outptl % 
r*set* lac (34110) 

dac buf 

lac (302100) 

dac buf+2 

las 

and (200000) 

sma 

;jmp outptl 

Jas 1 aenst 

gotlp, lot 712 

and (400000 

aza 

Jap outptlt-1 

lot 504 

Jmp outgo 3 

backup * las spt 
tad (-2? 
das Kpt 
imp gaty 
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movoup* 


tad (30 




d&e acpt 




Jsp goty 


bacyup, 


lac ypt 
tad (-27 






d&e ypt 




jmp show 


rnovyup. 


lac ypt 
add (30 




d&c ypt 


s*nbu« 


jiap show 

3*110 




20700 




302100 




600177 




300-0 




Willi 


outgo* 







lew buf 




lot 606 




Ion 




Jmp • 


inters 


J®S COXTttt 




Bkp 




$eep corhifc-1 




lot 701 




step 




jte Xphit*»l 

lot 601 




Bkp 




imp stpcod~l 




lot 102 




lot 202 




lot 302 




lot 402 




ion 




Jap i 
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dsi«lot 


601 




dsp»lot 


701 






lot 


704 


stpcod* 









lot 


704 


corhlt* 









lot 


704 


Iphlt, 







corrut* 


p- 

dsx 






Jmp 


. 3 




dsy 






Jmp 


i eoamtit 




ias 


aorrat 




Jfflp 


i wmi% 


touf, 


O 




buf 20/ 






ds^^iot 


501 




<!sy*dot 


1CK31 






IdOt 


> 


£x» 


10GC 


> 


param* 


34110 


f3PWvl# 


102000 


fyw&;* 


220000 



i tart 
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display octal and decimal output 

outnox, 

/ routine to oonv^s^ oot&l ^Mfeem to daelffi&l and generate 

/ buf i er for dieplagf 

/ calling 9eqa«nd«? 

/[ call , 5 l&$ & mssiber to b# converted 

/ Jffis matnoas; 

/ x x coordinate of left m&sber 

1/ bit (KL if octal rather than Sie, 

/ ;y y coordinate of left mxstew? 

/ dac buff miMr^Sis of buffer 

/ .return last buffer atidreaa ia JuS 

/ leading saroa replaced hj blanks a 

d&e outrnpsc 
lao 1 outnox 

and (31TfJ7 

ator XWdX 
da^ tlx 
lac i outnox 
and (400000 
dao t68x 
las o&tnox 
lac i 0iita€*.E 
xqt ywdx 
dao t£x 
las outnox 
lao 10 
d&c t3x 
lac 1 outnox 
da$ 10 
iae t68x 

jitp oetout 
lac (tat-1) 
dao taboo,!i 
bothx* lao parasix 

xct i outnox 
lao ttx 

lac t2x 
dac i 10 
lac 11 

dae tlx 
lac 12 

dao t£x 

liie tafeeon 
dm 11 

dac evntx 



DEC - 4 - 45 - Pi 



lac mitsapK 

tttd t*x. ' 

isss t4x 

dab au&nps 

lac t§ar 

am 

tad eutapx 

<la$ outops 

lass cwtuopx 

lAO t*X 

law * 

d&o sarrot 

lao t4at 

add (tas«) 

dac t69oc 

a&t; i t69K 

JtifB M.tE 

is 2 w&fcat 

Jap l$OpK 

nop 

«£a# $¥ntac 

Ins (Jmp *44 

dais ,-4 

41*1 sftrswt 

Jsap loops 

3L@c (nop 

^■«*-« .'™,io 

1^ 1Q 

lac t3x 

dae 10 

lae fcix 

data 11 

las fc£x 

dac 12 

isi t*x 

lac t4x 

lag outsscx 
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parara* 

xsfcLHf 

tab, 



»s*«* 



onex* 



turox, 



thraax, 



fourst, 



flYeX* 



30177 

20000 

340000 

-30323? 

-23W 

-17*7 

-143 

-11 

-0 

307042 
221290 

331*63 
237400 

104200 

777777 

304216 

227400 

1356?S 
030000 

777777 

225252 

227317 

230000 

234210 

10^000 

777777 

1673^0 

225213 
237660 

135^00 
777777 

124000 
226302 
325243 

231463 

236000 

104200 
777777 

225612 

221354 
370042 
224210 
135463 
031400 

777777 
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iis:x ? 



s«rv«m£j 



eights. 



;ain*s* 



blank* 



3*1052 

305*00 
170000 

235*77 

104200 

7777 



221210 

SIS 

104210 
100000 

77777? 
307058 
361250 
33i?T3 
237*00 
104200 

777777 
225612 

366363 
334000 

777777 

104210 

100000 

777777 



,;)2o 



'& Si 



carols, 



S^KZltji 



"fcltac* 



to&s$* 



odtout* 



tabiX; 








Inc. 


%m?m% 


asm 




4«p 


a«rxit 


l«tt 


lilt) 


4ma 


t%: 


i&& 


sssma 


lis 


ass^ta 


iss 


ni»iit 


-tap 


t l#l?^3# 







di^i 


12 


lao 


1 *j> 
(-0 


^ad 


dac 


i bit* 

i io 


fasp tolteft 


l&sr 


mmm^i 


laar 


onex-1 


last 


tWQ3C~l 


Ian 


t;te««x-l 


law 


f©U£»«-i 


Xaif 


l?;i^^!$>.l, 


law 


HtlO>4 


£&** 


a«vanx-l 


IBM 


•ightsat-i 


IBM 


nlnas*-! 


law 


fclaafe-1 


X&G 


(tabix-i) 


dac 


t«,fc«Cm 


jitip 


tooths; 


7777? 


7777 


77? 




77 





-o 



a tart 



